home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / dbms_mag / 9103 / isnet.asm < prev    next >
Assembly Source File  |  1991-01-15  |  1KB  |  52 lines
  1.  
  2. COMMENT $-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  3.         ISNET.ASM                    10/03/90
  4.         by P. L. Olympia
  5.  
  6.         Program to test if the user is on a network, by
  7.         checking if the Novell shell is loaded on the
  8.         workstation. Will return "Y" if the shell is loaded
  9.         whether or not the workstation is currently logged in.
  10.  
  11.         Usage:
  12.           LOAD isnet
  13.           result = SPAC(1)
  14.           CALL isnet WITH result
  15.           IF result = "Y"
  16.              <Novell shell is loaded>
  17.           ELSE
  18.              <Standalone PC>
  19.           ENDIF
  20.         -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=$
  21.  
  22. CODESEG SEGMENT PARA 'CODE'
  23.         ASSUME CS:CODESEG
  24.  
  25. IsNet     PROC  FAR
  26. Doit:
  27.           JMP   begin
  28.  
  29. TootIt    DB  'IsNet (c) 1990 by P. L. Olympia',13,10,26
  30.  
  31. Begin:
  32.         PUSH    AX              ;save registers
  33.         PUSH    BX
  34.         PUSH    DS
  35.  
  36.         MOV     AX,0EA00h       ;Load function
  37.         INT     21              ;Call DOS
  38.         MOV     AL,00
  39.         CMP     AH,0EAh         ;Is Shell Loaded?
  40.         JZ      SaveIt
  41.         MOV     AL,'Y'          ;Yup
  42. Saveit:
  43.         POP     DS              ;restore registers
  44.         POP     BX
  45.         MOV     [BX],AL
  46.         POP     AX
  47.         RET
  48.  
  49. IsNet   ENDP
  50. CODESEG ENDS
  51.         END   IsNet
  52.